start        equ  $1000
data         equ  $1200
             org  start
             movea.l #$1300,a7



             nop


             org  $1100

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; subroutine:  even_p_gen
; Description: generate even parity bit of 7-bit data
; input:  d0.b  is original data in low 7 bits ( bit 0 - bit 6 )
;         , bit 7 is dont care.
; output: d0.b is same as input but bit7 is even parity bit
; Register used:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
even_p_gen



               rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


               org data
data           ds.b 1


